Excel 2016 Power Programming with VBA (Mr. Spreadsheet's Bookshelf) by Michael Alexander & Richard Kusleika

Author:Michael Alexander & Richard Kusleika
Language: eng
Format: mobi, azw3
ISBN: 9781119067627
Publisher: Wiley
Published: 2016-01-28T23:00:00+00:00

Sub SaveAllGraphics()

Dim FileName As String

Dim TempName As String

Dim DirName As String

Dim gFile As String

FileName = ActiveWorkbook.FullName

TempName = ActiveWorkbook.Path &"\" & _

ActiveWorkbook.Name &"graphics.htm"

DirName = Left(TempName, Len(TempName) - 4) &"_files"

' Save active workbookbook as HTML, then reopen original

ActiveWorkbook.Save

ActiveWorkbook.SaveAs FileName:=TempName, FileFormat:=xlHtml

Application.DisplayAlerts = False

ActiveWorkbook.Close

Workbooks.Open FileName

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.